home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 2010 Software/Programs / PCGuia_programas.iso / Software / Utils / The GIMP / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / basic1-logo.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2009-12-15  |  3.4 KB  |  106 lines
  1. ;  DROP-SHADOW-LOGO
  2. ;  draw the specified text over a background with a drop shadow
  3.  
  4. (define (apply-basic1-logo-effect img
  5.                                   logo-layer
  6.                                   bg-color
  7.                                   text-color)
  8.   (let* (
  9.         (width (car (gimp-drawable-width logo-layer)))
  10.         (height (car (gimp-drawable-height logo-layer)))
  11.         (bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
  12.         (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE)))
  13.         )
  14.  
  15.     (gimp-context-push)
  16.  
  17.     (gimp-selection-none img)
  18.     (script-fu-util-image-resize-from-layer img logo-layer)
  19.     (script-fu-util-image-add-layers img shadow-layer bg-layer)
  20.     (gimp-context-set-foreground text-color)
  21.     (gimp-layer-set-lock-alpha logo-layer TRUE)
  22.     (gimp-edit-fill logo-layer FOREGROUND-FILL)
  23.     (gimp-context-set-background bg-color)
  24.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  25.     (gimp-edit-clear shadow-layer)
  26.     (gimp-selection-layer-alpha logo-layer)
  27.     (gimp-context-set-background '(0 0 0))
  28.     (gimp-selection-feather img 7.5)
  29.     (gimp-edit-fill shadow-layer BACKGROUND-FILL)
  30.     (gimp-selection-none img)
  31.     (gimp-context-set-foreground '(255 255 255))
  32.  
  33.     (gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
  34.                      GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE
  35.                      FALSE 0 0 TRUE
  36.                      0 0 width height)
  37.  
  38.     (gimp-layer-translate shadow-layer 3 3)
  39.  
  40.     (gimp-context-pop)
  41.   )
  42. )
  43.  
  44.  
  45. (define (script-fu-basic1-logo-alpha img
  46.                                      logo-layer
  47.                                      bg-color
  48.                                      text-color)
  49.   (begin
  50.     (gimp-image-undo-group-start img)
  51.     (apply-basic1-logo-effect img logo-layer bg-color text-color)
  52.     (gimp-image-undo-group-end img)
  53.     (gimp-displays-flush)
  54.   )
  55. )
  56.  
  57. (script-fu-register "script-fu-basic1-logo-alpha"
  58.   _"_Basic I..."
  59.   _"Add a gradient effect, a drop shadow, and a background to the selected region (or alpha)"
  60.   "Spencer Kimball"
  61.   "Spencer Kimball"
  62.   "1996"
  63.   "RGBA"
  64.   SF-IMAGE      "Image"             0
  65.   SF-DRAWABLE   "Drawable"          0
  66.   SF-COLOR      _"Background color" "white"
  67.   SF-COLOR      _"Text color"       '(6 6 206)
  68. )
  69.  
  70. (script-fu-menu-register "script-fu-basic1-logo-alpha"
  71.                          "<Image>/Filters/Alpha to Logo")
  72.  
  73. (define (script-fu-basic1-logo text
  74.                                size
  75.                                font
  76.                                bg-color
  77.                                text-color)
  78.   (let* (
  79.         (img (car (gimp-image-new 256 256 RGB)))
  80.         (text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
  81.         )
  82.  
  83.     (gimp-image-undo-disable img)
  84.     (apply-basic1-logo-effect img text-layer bg-color text-color)
  85.     (gimp-image-undo-enable img)
  86.     (gimp-display-new img)
  87.   )
  88. )
  89.  
  90. (script-fu-register "script-fu-basic1-logo"
  91.   _"_Basic I..."
  92.   _"Create a plain text logo with a gradient effect, a drop shadow, and a background"
  93.   "Spencer Kimball"
  94.   "Spencer Kimball"
  95.   "1996"
  96.   ""
  97.   SF-STRING     _"Text"               "GIMP"
  98.   SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
  99.   SF-FONT       _"Font"               "Dragonwick"
  100.   SF-COLOR      _"Background color"   "white"
  101.   SF-COLOR      _"Text color"         '(6 6 206)
  102. )
  103.  
  104. (script-fu-menu-register "script-fu-basic1-logo"
  105.                          "<Image>/File/Create/Logos")
  106.